From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 5 May 2010 17:51:40 +0000 (-0400)
Subject: * syntax.c (Fchar_syntax): Check the arg is a character.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7895
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=74166eb5fd9d03e7cbdf517676137479c65f4cb2;p=emacs.git

* syntax.c (Fchar_syntax): Check the arg is a character.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ad9b9f18354..458f8bbae96 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-05-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* syntax.c (Fchar_syntax): Check the arg is a character (bug#6080).
+
 2010-05-05  Lawrence Mitchell  <wence@gmx.li>
 
 	* m/sparc.h: Fix typo in earlier change.
diff --git a/src/syntax.c b/src/syntax.c
index a80f047e43c..4741fa260d2 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -858,7 +858,7 @@ are listed in the documentation of `modify-syntax-entry'.  */)
      Lisp_Object character;
 {
   int char_int;
-  CHECK_NUMBER (character);
+  CHECK_CHARACTER (character);
   char_int = XINT (character);
   SETUP_BUFFER_SYNTAX_TABLE ();
   return make_number (syntax_code_spec[(int) SYNTAX (char_int)]);